﻿⍝ --- Stand-Alone Web Services ---
⎕SE.FontObj←'APL385 Unicode' 22
)load saws
⎕USING←'System.Diagnostics,system.dll'
Process.Start⊂'http://ws.cdyne.com/WeatherWS/Weather.asmx?op=GetCityWeatherByZIP'
DRD.Init ''
'ws.cdyne.com' 80 'WeatherWS/Weather.asmx' SAWS.Call 'WeatherWS' 'GetCityWeatherByZIP' ('ZIP' '10001')
'ws.cdyne.com' 80 'WeatherWS/Weather.asmx' SAWS.Call 'WeatherWS' 'GetCityWeatherByZIP' ('ZIP' '98101')
)cs MyWebService
)ed StatCalc
StatCalc 1 2 3 4 4
)ed BuildAPI
)ed GetStats
GetStats 1 4⍴'' 'Input' '1 2 3 4 4' ''
)cs #
SAWS.Test 1 ⍝ Trace Me!
SAWS.Test 0
'localhost' 8080 SAWS.Call 'MyWebService' 'GetStats'('Input' '1 2 3 4 4') ⍝ Trace me!
SAWS.TRACE←1
'localhost' 8080 SAWS.Call 'MyWebService' 'GetStats'('Input' '1 2 3 4 4')
⎕USING←'System.Diagnostics,system.dll'
Process.Start⊂'C:\Program Files\Dyalog\Dyalog APL 12.0 Unicode\ws\saws.dws'
⍝ Do it again from the other ws ...
Process.Start⊂'http://localhost:8080/MyWebService'
Process.Start⊂'http://localhost:8080/MyWebService?WSDL'
Process.Start⊂'C:\Demos\MyWebService\GetStats.cs'
Process.Start⊂'C:\Demos\MyWebService\Command Prompt'